home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 83
/
64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64
/
file revival
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
117 lines
1 fori=1to31:ln$=ln$+"[192]":ls$=ls$+" ":next
2 lr$=left$(ls$,31):la$=left$(ln$,31)
3 rd$="[144] "
4 ur$(1)="[176]"+la$+"[174]":ur$(2)="[221]"+left$(ls$,31)+"[221]"
5 ur$(3)="[173]"+left$(ln$,31)+"[189]"
100 gosub620:re%=0
110 printchr$(14)
120 sp%=1:tr%=di%:open15,8,15,"i0
130 [159]8,8,2,"#2":fi%[178]0
140 [152]15,"u1:"2;0;tr%;sp%:[141]560
150 [129]i[178]0[164]1:[161]#8,a$:[141]530:p%(i)[178][198](a$):[130]:a[178]2:[141]550
160 [161]#8,a$:[141]530:a[178][198](a$)[175]7
170 h$[178]"":[129]i[178]0[164]1:[161]#8,a$:[141]530:l%(i)[178][198](a$):[130]
180 [129]i[178]3[164]18:[161]#8,a$:h$[178]h$[170]a$:[130]
190 [139]h$[178]""[167]210
191 [141]1200:[141]1100
192 [151]214,17:[151]211,2:[158]58640
200 [153]""ki$(a);" ";h$;:[139]a[178]0[167][137]380
210 fi%[178]fi%[170]1:[139]fi%[179]8[167]a[178]fi%[172]32[170]2:[141]550:[137]160
220 [139]p%(0)[178]0[167]240
230 tr%[178]p%(0):sp%[178]p%(1):fi%[178]0:[137]140
240 [160]8:[139]re%[167][141]1200:[153][163]1)"defpeekatn(NULL) aktualisieren ((NULL)alidate)"
245 [152]15,"v
250 gosub560:close15
252 gosub1300
254 printtab(14)"[154][215]eitere [196]iskette"
255 printtab(14)"[154]bearbeiten? (j/n)[144]"
256 gett$:ift$="j"thenrun
257 ift$="n"thenprint"[147]":poke198,0:end
258 goto256
260 rem file zurueckholen
270 print#15,"u1:"2;0;l%(0);l%(1):return
280 d%=2
290 gosub270:fori=0to1:get#8,a$:gosub530:z%(i)=asc(a$):next
310 ifz%(0)=0thenreturn
320 print#15,"b-f"0;z%(0);z%(1):l%(0)=z%(0):l%(1)=z%(1):z%(d%)=z%(0)
330 z%(d%+1)=z%(1):d%=d%+2
340 ifds=0then290
350 gosub1200:printtab(1)"[150][198]ile wurde ueberschrieben!":x%=not(x%):a=fi%*32+2
360 fori=2tod%-4step2:print#15,"b-f:"0;z%(i);z%(i+1):next
370 l%(0)=tr%:l%(1)=sp%:gosub270:goto550
380 gosub1200
384 printtab(1)"[150][211]ektoren wiederverbinden? (j/n)"
385 geta$
386 ifa$="j"then400
390 ifa$="n"then210
391 goto385
400 x%=0:gosub1200:printtab(1)"[150][198]ile wiederherstellen..."
402 z%(0)=l%(0):gosub280:ifx%then210
403 gosub1300
405 printtab(14)"[154][196]ateityp festlegen!"
406 printtab(14)"<[208]>[210][199] ([208]rogramm)"
407 printtab(14)"<[211]>[197][209] (sequentiell)"
408 printtab(14)"<[213]>[211][210] ([213]ser-[196]atei)"
409 printtab(14)"<[210]>[197][204] (relativ)[144]"
430 getja$:ifja$<>"p"andja$<>"s"andja$<>"u"andja$<>"r"then430
440 print:ifja$="p"thengosub1300:printtab(14)"[154][208]rogramm-":ki%=130:goto480
450 ifja$="u"thengosub1200:printtab(14)"[154][213]ser-":ki%=131:goto480
460 ifja$="r"thengosub1200:printtab(14)"[154][210]elative":ki%=132:goto480
470 gosub1200:printtab(14)"[154][211]equentielle":ki%=129
480 printtab(14)"[154][196]atei reaktivieren."
490 l%(0)=tr%:l%(1)=sp%:gosub270
500 a=fi%*32+2:gosub550:print#8,chr$(ki%);
510 bl%=((d%-2)/2)+1:printtab(14)"[154]"bl%"[194]locks"
520 print#15,"u2:"2;0;tr%;sp%:printtab(14)"[154]wieder belegt!":re%=1:goto210
530 ifa$=""thena$=chr$(0)
540 return
550 print#15,"b-p:"2;a
560 input#15,en%,em$,et%,es%:ifen%=0thenreturn
570 print"[147][144][196][201][211][203] [197][210][210][207][210][146]
580 [153]"ascehlerwait: "en%" "em$","et%","es%
590 [153]"'len(NULL)(NULL)(NULL)' eingeben!"
600 [128]
610 [142]
620 [134]p%(1),l%(1),z%(300),ki$(4):co$[178][199](34):[151]53280,1:[151]53281,1:
621 [151]646,5:[153]"load"
630 [129]i[178]0[164]4:[135]ki$(i):[130]
640 [131]"str$val(NULL)","(NULL)val(NULL)","(NULL)(NULL)chr$","(NULL)(NULL)(NULL)","(NULL)val(NULL)"
650 [141]1000
745 [161]td$:[139]td$[179][177][199](13)[167]745
750 di%[178]18:[142]
1000 [153]ur$(1)
1002 [129]i[178]1[164]12:[153]ur$(2)[170]rd$[170]"":[130]
1004 [153]ur$(3)[170]rd$
1006 [153][163]2)""ls$[170]rd$
1010 [151]214,2:[151]211,10:[158]58640
1012 [153]"ascright$(NULL)val (NULL)val(NULL)right$(NULL)atn(NULL)"
1014 [153][163]3)"fuer ascloppy 1541/1570/1571"
1016 [153][163]2)"stellt mit (NULL)len(NULL)atn(NULL)lenleft$ geloeschte"
1018 [153][163]2)"str$ateien auf str$iskette im"
1020 [153][163]2)"(NULL)riginalzustand wieder her."
1022 [153][163]2)"atnlenleft$(NULL)(NULL)(NULL)chr$! vals duerfen vorher"
1024 [153][163]2)"keine neuen str$ateien auf die"
1026 [153][163]2)"str$iskette gespeichert werden!"
1028 [153][163]2)"str$isk einlegen, dann <(NULL)val(NULL)(NULL)(NULL)(NULL)>"
1099 [142]
1100 [151]214,16:[151]211,0:[158]58640
1101 [151]646,6:[153]ur$(1)
1102 [153]ur$(2)[170]rd$[170]""
1104 [153]ur$(3)[170]rd$
1106 [153][163]2)""ls$[170]rd$
1108 [142]
1200 [151]214,20:[151]211,0:[158]58640
1201 [151]646,10:[153]ur$(1)
1202 [153]ur$(2)[170]rd$[170]"def"
1204 [153]ur$(3)[170]rd$
1206 [153][163]2)""ls$[170]rd$
1209 [151]214,21:[151]211,0:[158]58640
1210 [142]
1300 [151]214,3:[151]211,13:[158]58640
1301 [151]646,14:[153][200](ur$(1),20)[170][201](ur$(1),3)
1302 [129]i[178]1[164]7:[153][163]13)[200](ur$(2),20)[170][201](ur$(2),3)[170]rd$[170]"cont":[130]
1304 [153][163]13)[200](ur$(3),20)[170][201](ur$(3),3)[170]rd$
1306 [153][163]15)""[170][200](ls$,20)[170]rd$
1309 [151]214,4:[151]211,14:[158]58640
1310 [142]